/ Archive Magazine CD 1995 / Archive Magazine CD 1995.iso / discs / prog_disc / volume_1 / issue_02 / hand

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 0c f4 20 3e 20 | 48 61 6e 64 0d 00 14 1c |..... > |Hand....|
|00000010| f4 20 48 61 6e 64 20 41 | 73 73 65 6d 62 6c 65 72 |. Hand A|ssembler|
|00000020| 20 70 72 6f 67 72 61 6d | 0d 00 1e 16 f4 20 62 79 | program|..... by|
|00000030| 20 4a 20 53 68 69 70 70 | 2c 20 31 39 38 37 0d 00 | J Shipp|, 1987..|
|00000040| 28 04 0d 00 32 1e f4 20 | 44 65 63 6c 61 72 65 20 |(...2.. |Declare |
|00000050| 72 65 67 69 73 74 65 72 | 20 6e 75 6d 62 65 72 73 |register| numbers|
|00000060| 0d 00 3c 0e 64 65 66 6e | 20 20 20 3d 20 30 0d 00 |..<.defn|   = 0..|
|00000070| 46 0e 62 6c 6b 70 74 72 | 20 3d 20 31 0d 00 50 0e |F.blkptr| = 1..P.|
|00000080| 74 62 6c 70 74 72 20 3d | 20 32 0d 00 5a 0e 69 6e |tblptr =| 2..Z.in|
|00000090| 64 65 78 20 20 3d 20 33 | 0d 00 64 0f 73 70 20 20 |dex  = 3|..d.sp  |
|000000a0| 20 20 20 3d 20 31 33 0d | 00 6e 0f 6c 69 6e 6b 20 |   = 13.|.n.link |
|000000b0| 20 20 3d 20 31 34 0d 00 | 78 48 44 65 66 70 6f 69 |  = 14..|xHDefpoi|
|000000c0| 6e 74 65 72 20 3d 20 26 | 31 35 20 3a 20 f4 20 4f |nter = &|15 : . O|
|000000d0| 53 57 4f 52 44 20 74 6f | 20 64 65 66 69 6e 65 20 |SWORD to| define |
|000000e0| 6d 6f 75 73 65 20 70 6f | 69 6e 74 65 72 20 73 69 |mouse po|inter si|
|000000f0| 7a 65 2c 20 73 68 61 70 | 65 20 65 74 63 2e 0d 00 |ze, shap|e etc...|
|00000100| 82 23 de 20 63 6f 64 65 | 20 34 30 30 20 20 20 3a |.#. code| 400   :|
|00000110| 20 f4 20 53 70 61 63 65 | 20 66 6f 72 20 63 6f 64 | . Space| for cod|
|00000120| 65 0d 00 8c 14 e3 20 70 | 61 73 73 3d 30 20 b8 20 |e..... p|ass=0 . |
|00000130| 32 20 88 20 32 0d 00 96 | 0b 50 25 3d 63 6f 64 65 |2 . 2...|.P%=code|
|00000140| 0d 00 a0 0e 5b 20 6f 70 | 74 20 70 61 73 73 0d 00 |....[ op|t pass..|
|00000150| aa 05 3b 0d 00 b4 37 73 | 74 6d 66 64 20 28 73 70 |..;...7s|tmfd (sp|
|00000160| 29 21 2c 7b 6c 69 6e 6b | 7d 20 20 20 20 20 20 20 |)!,{link|}       |
|00000170| 20 3b 20 53 61 76 65 20 | 74 68 65 20 72 65 74 75 | ; Save |the retu|
|00000180| 72 6e 20 61 64 64 72 65 | 73 73 0d 00 be 08 5c 2d |rn addre|ss....\-|
|00000190| 2d 2d 0d 00 c8 37 6d 6f | 76 20 20 64 65 66 6e 2c |--...7mo|v  defn,|
|000001a0| 23 44 65 66 70 6f 69 6e | 74 65 72 20 20 20 20 20 |#Defpoin|ter     |
|000001b0| 3b 20 72 30 20 63 6f 6e | 74 61 69 6e 73 20 72 65 |; r0 con|tains re|
|000001c0| 61 73 6f 6e 20 63 6f 64 | 65 0d 00 d2 37 61 64 72 |ason cod|e...7adr|
|000001d0| 20 20 62 6c 6b 70 74 72 | 2c 70 61 72 6d 42 6c 6f |  blkptr|,parmBlo|
|000001e0| 63 6b 20 20 20 20 20 3b | 20 72 31 20 70 6f 69 6e |ck     ;| r1 poin|
|000001f0| 74 73 20 61 74 20 70 61 | 72 6d 20 62 6c 6f 63 6b |ts at pa|rm block|
|00000200| 0d 00 dc 36 61 64 72 20 | 20 74 62 6c 70 74 72 2c |...6adr | tblptr,|
|00000210| 64 61 74 61 74 61 62 6c | 65 20 20 20 20 20 3b 20 |datatabl|e     ; |
|00000220| 72 32 20 70 6f 69 6e 74 | 73 20 61 74 20 64 61 74 |r2 point|s at dat|
|00000230| 61 74 61 62 6c 65 0d 00 | e6 4c 61 64 64 20 20 69 |atable..|.Ladd  i|
|00000240| 6e 64 65 78 2c 62 6c 6b | 70 74 72 2c 23 35 20 20 |ndex,blk|ptr,#5  |
|00000250| 20 20 20 20 3b 20 47 65 | 74 20 69 6e 64 65 78 20 |    ; Ge|t index |
|00000260| 6f 66 20 64 61 74 61 74 | 61 62 6c 65 20 70 6f 69 |of datat|able poi|
|00000270| 6e 74 65 72 20 69 6e 20 | 70 61 72 6d 20 62 6c 6f |nter in |parm blo|
|00000280| 63 6b 0d 00 f0 09 2e 6c | 6f 6f 70 0d 00 fa 47 73 |ck.....l|oop...Gs|
|00000290| 74 72 62 20 74 62 6c 70 | 74 72 2c 5b 69 6e 64 65 |trb tblp|tr,[inde|
|000002a0| 78 2c 23 31 5d 21 20 20 | 20 3b 20 53 61 76 65 20 |x,#1]!  | ; Save |
|000002b0| 65 61 63 68 20 62 79 74 | 65 20 6f 66 20 74 68 65 |each byt|e of the|
|000002c0| 20 64 61 74 61 74 61 62 | 6c 65 20 70 6f 69 6e 74 | datatab|le point|
|000002d0| 65 72 0d 01 04 2f 6d 6f | 76 73 20 74 62 6c 70 74 |er.../mo|vs tblpt|
|000002e0| 72 2c 74 62 6c 70 74 72 | 2c 6c 73 72 20 23 38 20 |r,tblptr|,lsr #8 |
|000002f0| 3b 20 69 6e 74 6f 20 70 | 61 72 6d 20 62 6c 6f 63 |; into p|arm bloc|
|00000300| 6b 0d 01 0e 0c 62 6e 65 | 20 6c 6f 6f 70 0d 01 18 |k....bne| loop...|
|00000310| 35 73 77 69 20 22 4f 53 | 5f 57 6f 72 64 22 20 20 |5swi "OS|_Word"  |
|00000320| 20 20 20 20 20 20 20 20 | 20 20 20 3b 20 57 72 69 |        |   ; Wri|
|00000330| 74 65 20 6e 65 77 20 64 | 65 66 69 6e 69 74 69 6f |te new d|efinitio|
|00000340| 6e 2e 0d 01 22 08 5c 2d | 2d 2d 0d 01 2c 26 6c 64 |n...".\-|--..,&ld|
|00000350| 6d 66 64 20 28 73 70 29 | 21 2c 7b 70 63 7d 20 20 |mfd (sp)|!,{pc}  |
|00000360| 20 20 20 20 20 20 20 20 | 3b 20 52 65 74 75 72 6e |        |; Return|
|00000370| 0d 01 36 08 5c 2d 2d 2d | 0d 01 40 0e 2e 70 61 72 |..6.\---|..@..par|
|00000380| 6d 42 6c 6f 63 6b 0d 01 | 4a 1a 45 51 55 42 20 26 |mBlock..|J.EQUB &|
|00000390| 30 30 20 20 20 20 20 20 | 20 20 20 20 20 20 20 3b |00      |       ;|
|000003a0| 0d 01 54 2f 45 51 55 42 | 20 26 30 32 20 20 20 20 |..T/EQUB| &02    |
|000003b0| 20 20 20 20 20 20 20 20 | 20 3b 20 53 68 61 70 65 |        | ; Shape|
|000003c0| 20 6e 75 6d 62 65 72 20 | 28 31 20 2d 20 34 29 0d | number |(1 - 4).|
|000003d0| 01 5e 35 45 51 55 42 20 | 26 30 38 20 20 20 20 20 |.^5EQUB |&08     |
|000003e0| 20 20 20 20 20 20 20 20 | 3b 20 57 69 64 74 68 20 |        |; Width |
|000003f0| 28 77 29 20 69 6e 20 62 | 79 74 65 73 20 28 30 20 |(w) in b|ytes (0 |
|00000400| 2d 20 38 29 0d 01 68 38 | 45 51 55 42 20 26 32 30 |- 8)..h8|EQUB &20|
|00000410| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 3b 20 48 |        |     ; H|
|00000420| 65 69 67 68 74 20 28 68 | 29 20 69 6e 20 70 69 78 |eight (h|) in pix|
|00000430| 65 6c 73 20 28 30 20 2d | 20 33 32 29 0d 01 72 42 |els (0 -| 32)..rB|
|00000440| 45 51 55 42 20 26 30 30 | 20 20 20 20 20 20 20 20 |EQUB &00|        |
|00000450| 20 20 20 20 20 3b 20 41 | 63 74 69 76 65 58 20 69 |     ; A|ctiveX i|
|00000460| 6e 20 70 69 78 65 6c 73 | 20 66 72 6f 6d 20 6c 65 |n pixels| from le|
|00000470| 66 74 20 28 30 20 2d 20 | 77 2a 34 2d 31 29 0d 01 |ft (0 - |w*4-1)..|
|00000480| 7c 4e 45 51 55 42 20 26 | 30 44 20 20 20 20 20 20 ||NEQUB &|0D      |
|00000490| 20 20 20 20 20 20 20 3b | 20 41 63 74 69 76 65 59 |       ;| ActiveY|
|000004a0| 20 69 6e 20 70 69 78 65 | 6c 73 20 66 72 6f 6d 20 | in pixe|ls from |
|000004b0| 74 6f 70 20 28 30 20 2d | 20 68 2d 31 29 20 69 2e |top (0 -| h-1) i.|
|000004c0| 65 2e 20 66 69 6e 67 65 | 72 74 69 70 0d 01 86 49 |e. finge|rtip...I|
|000004d0| 45 51 55 42 20 26 30 30 | 20 20 20 20 20 20 20 20 |EQUB &00|        |
|000004e0| 20 20 20 20 20 3b 20 4c | 65 61 73 74 20 73 69 67 |     ; L|east sig|
|000004f0| 6e 69 66 69 63 61 6e 74 | 20 62 79 74 65 20 6f 66 |nificant| byte of|
|00000500| 20 70 6f 69 6e 74 65 72 | 20 74 6f 20 64 61 74 61 | pointer| to data|
|00000510| 74 61 62 6c 65 0d 01 90 | 1a 45 51 55 42 20 26 30 |table...|.EQUB &0|
|00000520| 30 20 20 20 20 20 20 20 | 20 20 20 20 20 20 3b 0d |0       |      ;.|
|00000530| 01 9a 1a 45 51 55 42 20 | 26 30 30 20 20 20 20 20 |...EQUB |&00     |
|00000540| 20 20 20 20 20 20 20 20 | 3b 0d 01 a4 48 45 51 55 |        |;...HEQU|
|00000550| 42 20 26 30 30 20 20 20 | 20 20 20 20 20 20 20 20 |B &00   |        |
|00000560| 20 20 3b 20 4d 6f 73 74 | 20 73 69 67 6e 69 66 69 |  ; Most| signifi|
|00000570| 63 61 6e 74 20 62 79 74 | 65 20 6f 66 20 70 6f 69 |cant byt|e of poi|
|00000580| 6e 74 65 72 20 74 6f 20 | 64 61 74 61 74 61 62 6c |nter to |datatabl|
|00000590| 65 0d 01 ae 08 5c 2d 2d | 2d 0d 01 b8 0e 2e 64 61 |e....\--|-.....da|
|000005a0| 74 61 74 61 62 6c 65 0d | 01 c2 27 3b 20 20 20 20 |tatable.|..';    |
|000005b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000005c0| 20 20 20 20 20 20 20 20 | 20 20 20 52 6f 77 0d 01 |        |   Row..|
|000005d0| cc 05 3b 0d 01 d6 26 45 | 51 55 44 20 26 30 30 30 |..;...&E|QUD &000|
|000005e0| 30 30 30 30 30 3a 45 51 | 55 44 20 26 30 30 30 30 |00000:EQ|UD &0000|
|000005f0| 30 30 30 30 20 3b 20 20 | 31 0d 01 e0 26 45 51 55 |0000 ;  |1...&EQU|
|00000600| 44 20 26 30 30 30 30 30 | 30 30 30 3a 45 51 55 44 |D &00000|000:EQUD|
|00000610| 20 26 30 30 30 30 30 30 | 30 30 20 3b 20 20 32 0d | &000000|00 ;  2.|
|00000620| 01 ea 26 45 51 55 44 20 | 26 30 30 30 30 30 30 30 |..&EQUD |&0000000|
|00000630| 30 3a 45 51 55 44 20 26 | 30 30 30 30 30 30 30 30 |0:EQUD &|00000000|
|00000640| 20 3b 20 20 33 0d 01 f4 | 26 45 51 55 44 20 26 30 | ;  3...|&EQUD &0|
|00000650| 30 30 30 30 30 30 30 3a | 45 51 55 44 20 26 30 30 |0000000:|EQUD &00|
|00000660| 30 30 30 43 30 30 20 3b | 20 20 34 0d 01 fe 26 45 |000C00 ;|  4...&E|
|00000670| 51 55 44 20 26 30 30 30 | 30 30 30 30 30 3a 45 51 |QUD &000|00000:EQ|
|00000680| 55 44 20 26 30 30 30 30 | 33 44 30 30 20 3b 20 20 |UD &0000|3D00 ;  |
|00000690| 35 0d 02 08 26 45 51 55 | 44 20 26 30 30 30 30 30 |5...&EQU|D &00000|
|000006a0| 30 30 30 3a 45 51 55 44 | 20 26 30 30 30 30 46 35 |000:EQUD| &0000F5|
|000006b0| 30 30 20 3b 20 20 36 0d | 02 12 26 45 51 55 44 20 |00 ;  6.|..&EQUD |
|000006c0| 26 30 30 30 30 30 30 30 | 30 3a 45 51 55 44 20 26 |&0000000|0:EQUD &|
|000006d0| 30 30 30 31 35 35 30 30 | 20 3b 20 20 37 0d 02 1c |00015500| ;  7...|
|000006e0| 26 45 51 55 44 20 26 30 | 30 30 30 30 30 30 30 3a |&EQUD &0|0000000:|
|000006f0| 45 51 55 44 20 26 30 30 | 30 35 35 35 30 30 20 3b |EQUD &00|055500 ;|
|00000700| 20 20 38 0d 02 26 26 45 | 51 55 44 20 26 30 30 30 |  8..&&E|QUD &000|
|00000710| 30 30 30 30 30 3a 45 51 | 55 44 20 26 30 30 31 35 |00000:EQ|UD &0015|
|00000720| 35 34 30 30 20 3b 20 20 | 39 0d 02 30 26 45 51 55 |5400 ;  |9..0&EQU|
|00000730| 44 20 26 30 30 30 30 30 | 30 30 30 3a 45 51 55 44 |D &00000|000:EQUD|
|00000740| 20 26 30 30 35 35 35 30 | 30 30 20 3b 20 31 30 0d | &005550|00 ; 10.|
|00000750| 02 3a 26 45 51 55 44 20 | 26 30 30 30 30 30 30 30 |.:&EQUD |&0000000|
|00000760| 30 3a 45 51 55 44 20 26 | 30 31 35 35 34 30 30 30 |0:EQUD &|01554000|
|00000770| 20 3b 20 31 31 0d 02 44 | 26 45 51 55 44 20 26 30 | ; 11..D|&EQUD &0|
|00000780| 30 30 30 30 30 30 30 3a | 45 51 55 44 20 26 30 35 |0000000:|EQUD &05|
|00000790| 35 35 30 30 30 30 20 3b | 20 31 32 0d 02 4e 26 45 |550000 ;| 12..N&E|
|000007a0| 51 55 44 20 26 35 35 35 | 35 35 35 35 34 3a 45 51 |QUD &555|55554:EQ|
|000007b0| 55 44 20 26 31 35 35 35 | 35 35 35 35 20 3b 20 31 |UD &1555|5555 ; 1|
|000007c0| 33 0d 02 58 26 45 51 55 | 44 20 26 35 35 35 35 35 |3..X&EQU|D &55555|
|000007d0| 35 35 35 3a 45 51 55 44 | 20 26 35 35 35 35 35 35 |555:EQUD| &555555|
|000007e0| 35 35 20 3b 20 31 34 0d | 02 62 26 45 51 55 44 20 |55 ; 14.|.b&EQUD |
|000007f0| 26 35 35 35 35 35 35 35 | 35 3a 45 51 55 44 20 26 |&5555555|5:EQUD &|
|00000800| 35 35 35 35 35 35 35 35 | 20 3b 20 31 35 0d 02 6c |55555555| ; 15..l|
|00000810| 26 45 51 55 44 20 26 35 | 35 35 35 35 35 35 34 3a |&EQUD &5|5555554:|
|00000820| 45 51 55 44 20 26 35 35 | 35 35 35 35 35 35 20 3b |EQUD &55|555555 ;|
|00000830| 20 31 36 0d 02 76 26 45 | 51 55 44 20 26 39 30 30 | 16..v&E|QUD &900|
|00000840| 30 30 30 30 30 3a 45 51 | 55 44 20 26 35 35 35 46 |00000:EQ|UD &555F|
|00000850| 45 41 41 41 20 3b 20 31 | 37 0d 02 80 26 45 51 55 |EAAA ; 1|7...&EQU|
|00000860| 44 20 26 35 34 30 30 30 | 30 30 30 3a 45 51 55 44 |D &54000|000:EQUD|
|00000870| 20 26 35 35 37 46 46 35 | 35 35 20 3b 20 31 38 0d | &557FF5|55 ; 18.|
|00000880| 02 8a 26 45 51 55 44 20 | 26 35 34 30 30 30 30 30 |..&EQUD |&5400000|
|00000890| 30 3a 45 51 55 44 20 26 | 35 35 35 46 44 35 35 35 |0:EQUD &|555FD555|
|000008a0| 20 3b 20 31 39 0d 02 94 | 26 45 51 55 44 20 26 35 | ; 19...|&EQUD &5|
|000008b0| 30 30 30 30 30 30 30 3a | 45 51 55 44 20 26 35 35 |0000000:|EQUD &55|
|000008c0| 35 35 39 35 35 35 20 3b | 20 32 30 0d 02 9e 26 45 |559555 ;| 20...&E|
|000008d0| 51 55 44 20 26 30 30 30 | 30 30 30 30 30 3a 45 51 |QUD &000|00000:EQ|
|000008e0| 55 44 20 26 35 35 36 41 | 41 41 41 41 20 3b 20 32 |UD &556A|AAAA ; 2|
|000008f0| 31 0d 02 a8 26 45 51 55 | 44 20 26 34 30 30 30 30 |1...&EQU|D &40000|
|00000900| 30 30 30 3a 45 51 55 44 | 20 26 35 37 46 44 35 35 |000:EQUD| &57FD55|
|00000910| 35 35 20 3b 20 32 32 0d | 02 b2 26 45 51 55 44 20 |55 ; 22.|..&EQUD |
|00000920| 26 34 30 30 30 30 30 30 | 30 3a 45 51 55 44 20 26 |&4000000|0:EQUD &|
|00000930| 35 37 46 44 35 35 35 35 | 20 3b 20 32 33 0d 02 bc |57FD5555| ; 23...|
|00000940| 26 45 51 55 44 20 26 34 | 30 30 30 30 30 30 30 3a |&EQUD &4|0000000:|
|00000950| 45 51 55 44 20 26 35 35 | 36 35 35 35 35 35 20 3b |EQUD &55|655555 ;|
|00000960| 20 32 34 0d 02 c6 26 45 | 51 55 44 20 26 30 30 30 | 24...&E|QUD &000|
|00000970| 30 30 30 30 30 3a 45 51 | 55 44 20 26 35 35 35 41 |00000:EQ|UD &555A|
|00000980| 41 41 41 35 20 3b 20 32 | 35 0d 02 d0 26 45 51 55 |AAA5 ; 2|5...&EQU|
|00000990| 44 20 26 30 30 30 30 30 | 30 30 30 3a 45 51 55 44 |D &00000|000:EQUD|
|000009a0| 20 26 35 35 37 44 35 35 | 35 30 20 3b 20 32 36 0d | &557D55|50 ; 26.|
|000009b0| 02 da 26 45 51 55 44 20 | 26 30 30 30 30 30 30 30 |..&EQUD |&0000000|
|000009c0| 30 3a 45 51 55 44 20 26 | 35 35 46 46 35 35 35 30 |0:EQUD &|55FF5550|
|000009d0| 20 3b 20 32 37 0d 02 e4 | 26 45 51 55 44 20 26 30 | ; 27...|&EQUD &0|
|000009e0| 30 30 30 30 30 30 30 3a | 45 51 55 44 20 26 30 35 |0000000:|EQUD &05|
|000009f0| 37 44 35 35 35 30 20 3b | 20 32 38 0d 02 ee 26 45 |7D5550 ;| 28...&E|
|00000a00| 51 55 44 20 26 30 30 30 | 30 30 30 30 30 3a 45 51 |QUD &000|00000:EQ|
|00000a10| 55 44 20 26 30 31 35 41 | 35 35 34 30 20 3b 20 32 |UD &015A|5540 ; 2|
|00000a20| 39 0d 02 f8 26 45 51 55 | 44 20 26 30 30 30 30 30 |9...&EQU|D &00000|
|00000a30| 30 30 30 3a 45 51 55 44 | 20 26 30 30 30 30 30 30 |000:EQUD| &000000|
|00000a40| 30 30 20 3b 20 33 30 0d | 03 02 26 45 51 55 44 20 |00 ; 30.|..&EQUD |
|00000a50| 26 30 30 30 30 30 30 30 | 30 3a 45 51 55 44 20 26 |&0000000|0:EQUD &|
|00000a60| 30 30 30 30 30 30 30 30 | 20 3b 20 33 31 0d 03 0c |00000000| ; 31...|
|00000a70| 26 45 51 55 44 20 26 30 | 30 30 30 30 30 30 30 3a |&EQUD &0|0000000:|
|00000a80| 45 51 55 44 20 26 30 30 | 30 30 30 30 30 30 20 3b |EQUD &00|000000 ;|
|00000a90| 20 33 32 0d 03 16 07 5d | 3a ed 0d 03 20 0a d6 20 | 32....]|:... .. |
|00000aa0| 63 6f 64 65 0d 03 2a 06 | eb 39 0d 03 34 0c 2a 50 |code..*.|.9..4.*P|
|00000ab0| 4f 49 4e 54 45 52 0d 03 | 3e 16 c8 97 20 fb 20 31 |OINTER..|>... . 1|
|00000ac0| 2c 32 32 35 2c 31 37 35 | 2c 31 36 32 0d 03 48 16 |,225,175|,162..H.|
|00000ad0| c8 97 20 fb 20 32 2c 32 | 30 39 2c 31 33 39 2c 31 |.. . 2,2|09,139,1|
|00000ae0| 34 30 0d 03 52 12 c8 97 | 20 fb 20 33 2c 32 31 35 |40..R...| . 3,215|
|00000af0| 2c 30 2c 30 0d 03 5c 0a | c8 97 20 ee 20 32 0d ff |,0,0..\.|.. . 2..|
+--------+-------------------------+-------------------------+--------+--------+